/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / algorithms / grasort

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 50 72 | 6f 67 72 61 6d 20 47 72 |... . Pr|ogram Gr|
|00000010| 61 73 6f 72 74 20 20 76 | 65 72 73 69 6f 6e 20 36 |asort  v|ersion 6|
|00000020| 0d 00 14 21 f4 20 28 43 | 29 20 44 2e 45 2e 20 42 |...!. (C|) D.E. B|
|00000030| 6f 77 65 72 20 20 32 39 | 20 44 65 63 20 31 39 39 |ower  29| Dec 199|
|00000040| 30 0d 00 15 1a f4 20 41 | 72 63 68 69 6d 65 64 65 |0..... A|rchimede|
|00000050| 73 20 2b 20 42 41 53 49 | 43 20 56 0d 00 1e 05 20 |s + BASI|C V.... |
|00000060| 0d 00 28 2f f4 20 47 72 | 61 70 68 69 63 61 6c 20 |..(/. Gr|aphical |
|00000070| 64 69 73 70 6c 61 79 20 | 6f 66 20 66 6f 75 72 20 |display |of four |
|00000080| 73 6f 72 74 20 74 65 63 | 68 6e 69 71 75 65 73 0d |sort tec|hniques.|
|00000090| 00 32 05 20 0d 00 3c 27 | f4 20 28 31 29 20 48 45 |.2. ..<'|. (1) HE|
|000000a0| 41 50 53 4f 52 54 20 61 | 6c 67 6f 72 69 74 68 6d |APSORT a|lgorithm|
|000000b0| 20 28 57 69 6c 6c 69 61 | 6d 73 29 0d 00 46 1e f4 | (Willia|ms)..F..|
|000000c0| 20 28 32 29 20 53 48 45 | 4c 4c 20 73 6f 72 74 20 | (2) SHE|LL sort |
|000000d0| 61 6c 67 6f 72 69 74 68 | 6d 0d 00 50 1b f4 20 28 |algorith|m..P.. (|
|000000e0| 33 29 20 51 55 49 43 4b | 53 4f 52 54 20 28 48 6f |3) QUICK|SORT (Ho|
|000000f0| 61 72 65 29 0d 00 5a 18 | f4 20 28 34 29 20 53 65 |are)..Z.|. (4) Se|
|00000100| 6c 65 63 74 69 6f 6e 20 | 73 6f 72 74 0d 00 64 04 |lection |sort..d.|
|00000110| 0d 00 6e 35 f4 20 52 65 | 66 65 72 65 6e 63 65 73 |..n5. Re|ferences|
|00000120| 20 28 62 6f 74 68 20 70 | 75 62 6c 69 73 68 65 64 | (both p|ublished|
|00000130| 20 62 79 20 41 64 64 69 | 73 6f 6e 2d 57 65 73 6c | by Addi|son-Wesl|
|00000140| 65 79 29 20 3a 0d 00 78 | 04 0d 00 82 27 f4 20 27 |ey) :..x|....'. '|
|00000150| 54 68 65 20 41 72 74 20 | 6f 66 20 43 6f 6d 70 75 |The Art |of Compu|
|00000160| 74 65 72 20 50 72 6f 67 | 72 61 6d 6d 69 6e 67 27 |ter Prog|ramming'|
|00000170| 0d 00 8c 31 f4 20 56 6f | 6c 75 6d 65 20 33 20 28 |...1. Vo|lume 3 (|
|00000180| 53 6f 72 74 69 6e 67 20 | 61 6e 64 20 53 65 61 72 |Sorting |and Sear|
|00000190| 63 68 69 6e 67 29 20 44 | 2e 45 2e 20 4b 6e 75 74 |ching) D|.E. Knut|
|000001a0| 68 0d 00 96 05 20 0d 00 | a0 24 f4 20 27 48 61 6e |h.... ..|.$. 'Han|
|000001b0| 64 62 6f 6f 6b 20 6f 66 | 20 41 6c 67 6f 72 69 74 |dbook of| Algorit|
|000001c0| 68 6d 73 20 26 20 44 61 | 74 61 0d 00 aa 1e f4 20 |hms & Da|ta..... |
|000001d0| 53 74 72 75 63 74 75 72 | 65 73 27 20 20 47 2e 48 |Structur|es'  G.H|
|000001e0| 2e 20 47 6f 6e 6e 65 74 | 0d 00 b4 05 20 0d 00 be |. Gonnet|.... ...|
|000001f0| 21 f4 20 54 68 65 20 66 | 69 72 73 74 20 70 68 61 |!. The f|irst pha|
|00000200| 73 65 20 6f 66 20 48 65 | 61 70 73 6f 72 74 0d 00 |se of He|apsort..|
|00000210| c8 26 f4 20 72 65 2d 61 | 72 72 61 6e 67 65 73 20 |.&. re-a|rranges |
|00000220| 74 68 65 20 4e 20 61 72 | 72 61 79 20 65 6c 65 6d |the N ar|ray elem|
|00000230| 65 6e 74 73 0d 00 d2 21 | f4 20 69 6e 74 6f 20 61 |ents...!|. into a|
|00000240| 20 68 65 61 70 2e 20 54 | 68 69 73 20 69 73 20 61 | heap. T|his is a|
|00000250| 20 64 61 74 61 0d 00 dc | 25 f4 20 73 74 72 75 63 | data...|%. struc|
|00000260| 74 75 72 65 20 77 69 74 | 68 20 70 61 72 74 69 61 |ture wit|h partia|
|00000270| 6c 20 6f 72 64 65 72 69 | 6e 67 0d 00 e6 2c f4 20 |l orderi|ng...,. |
|00000280| 4b 65 79 28 4a 20 44 49 | 56 20 32 29 20 3e 3d 20 |Key(J DI|V 2) >= |
|00000290| 4b 65 79 28 4a 29 20 66 | 6f 72 20 31 20 3c 3d 20 |Key(J) f|or 1 <= |
|000002a0| 4a 20 3c 3d 20 4e 0d 00 | f0 2c f4 20 54 68 65 20 |J <= N..|.,. The |
|000002b0| 65 6c 65 6d 65 6e 74 20 | 4b 65 79 28 31 29 20 69 |element |Key(1) i|
|000002c0| 73 20 6c 61 72 67 65 73 | 74 20 6f 66 20 68 65 61 |s larges|t of hea|
|000002d0| 70 2e 0d 00 fa 05 20 0d | 01 04 22 f4 20 54 68 65 |p..... .|..". The|
|000002e0| 20 73 65 63 6f 6e 64 20 | 70 68 61 73 65 20 28 73 | second |phase (s|
|000002f0| 65 6c 65 63 74 69 6f 6e | 29 0d 01 0e 21 f4 20 72 |election|)...!. r|
|00000300| 65 70 65 61 74 65 64 6c | 79 20 72 65 6d 6f 76 65 |epeatedl|y remove|
|00000310| 73 20 74 68 69 73 20 74 | 6f 70 0d 01 18 22 f4 20 |s this t|op...". |
|00000320| 65 6c 65 6d 65 6e 74 2c | 20 74 72 61 6e 73 66 65 |element,| transfe|
|00000330| 72 73 20 69 74 20 74 6f | 20 69 74 73 0d 01 22 21 |rs it to| its.."!|
|00000340| f4 20 63 6f 72 72 65 63 | 74 20 66 69 6e 61 6c 20 |. correc|t final |
|00000350| 70 6f 73 69 74 69 6f 6e | 2c 20 61 6e 64 0d 01 2c |position|, and..,|
|00000360| 24 f4 20 72 65 2d 61 72 | 72 61 6e 67 65 73 20 72 |$. re-ar|ranges r|
|00000370| 65 6d 61 69 6e 69 6e 67 | 20 65 6c 65 6d 65 6e 74 |emaining| element|
|00000380| 73 0d 01 36 25 f4 20 74 | 6f 20 6d 61 69 6e 74 61 |s..6%. t|o mainta|
|00000390| 69 6e 20 74 68 65 20 68 | 65 61 70 20 73 74 72 75 |in the h|eap stru|
|000003a0| 63 74 75 72 65 2e 0d 01 | 40 05 20 0d 01 4a 22 f4 |cture...|@. ..J".|
|000003b0| 20 54 68 69 73 20 61 6c | 67 6f 72 69 74 68 6d 20 | This al|gorithm |
|000003c0| 69 73 20 72 65 6c 61 74 | 69 76 65 6c 79 0d 01 54 |is relat|ively..T|
|000003d0| 23 f4 20 65 66 66 69 63 | 69 65 6e 74 20 77 69 74 |#. effic|ient wit|
|000003e0| 68 20 65 78 65 63 75 74 | 69 6f 6e 20 74 69 6d 65 |h execut|ion time|
|000003f0| 0d 01 5e 22 f4 20 70 72 | 6f 70 6f 72 74 69 6f 6e |..^". pr|oportion|
|00000400| 61 6c 20 74 6f 20 4e 2a | 4c 4f 47 28 4e 29 20 66 |al to N*|LOG(N) f|
|00000410| 6f 72 0d 01 68 24 f4 20 | 61 6e 79 20 69 6e 70 75 |or..h$. |any inpu|
|00000420| 74 20 73 65 71 75 65 6e | 63 65 20 77 68 61 74 73 |t sequen|ce whats|
|00000430| 6f 65 76 65 72 2e 0d 01 | 72 05 20 0d 01 7c 23 f4 |oever...|r. ..|#.|
|00000440| 20 53 68 65 6c 6c 20 73 | 6f 72 74 20 77 6f 72 6b | Shell s|ort work|
|00000450| 73 20 69 6e 20 61 20 74 | 6f 74 61 6c 6c 79 0d 01 |s in a t|otally..|
|00000460| 86 20 f4 20 64 69 66 66 | 65 72 65 6e 74 20 66 61 |. . diff|erent fa|
|00000470| 73 68 69 6f 6e 2e 20 45 | 6c 65 6d 65 6e 74 0d 01 |shion. E|lement..|
|00000480| 90 22 f4 20 70 61 69 72 | 73 20 61 20 64 69 73 74 |.". pair|s a dist|
|00000490| 61 6e 63 65 20 44 20 61 | 70 61 72 74 20 61 72 65 |ance D a|part are|
|000004a0| 0d 01 9a 23 f4 20 63 6f | 6d 70 61 72 65 64 20 61 |...#. co|mpared a|
|000004b0| 6e 64 20 65 78 63 68 61 | 6e 67 65 64 20 69 66 20 |nd excha|nged if |
|000004c0| 6f 75 74 0d 01 a4 24 f4 | 20 6f 66 20 6f 72 64 65 |out...$.| of orde|
|000004d0| 72 2e 20 54 68 65 20 73 | 6f 72 74 20 69 6e 63 72 |r. The s|ort incr|
|000004e0| 65 6d 65 6e 74 20 44 0d | 01 ae 25 f4 20 72 65 64 |ement D.|..%. red|
|000004f0| 75 63 65 73 20 74 6f 20 | 31 20 69 6e 20 73 65 76 |uces to |1 in sev|
|00000500| 65 72 61 6c 20 73 74 61 | 67 65 73 2e 0d 01 b8 24 |eral sta|ges....$|
|00000510| f4 20 54 68 69 73 20 6d | 65 74 68 6f 64 20 69 73 |. This m|ethod is|
|00000520| 20 61 6c 73 6f 20 65 66 | 66 69 63 69 65 6e 74 2c | also ef|ficient,|
|00000530| 0d 01 c2 26 f4 20 77 69 | 74 68 20 65 78 65 63 75 |...&. wi|th execu|
|00000540| 74 69 6f 6e 20 74 69 6d | 65 20 70 72 6f 70 6f 72 |tion tim|e propor|
|00000550| 74 69 6f 6e 61 6c 0d 01 | cc 27 f4 20 74 6f 20 4e |tional..|.'. to N|
|00000560| 5e 31 2e 32 20 66 6f 72 | 20 74 68 65 20 44 20 73 |^1.2 for| the D s|
|00000570| 65 71 75 65 6e 63 65 20 | 75 73 65 64 2e 0d 01 d6 |equence |used....|
|00000580| 05 20 0d 01 e0 23 f4 20 | 51 75 69 63 6b 73 6f 72 |. ...#. |Quicksor|
|00000590| 74 20 77 6f 72 6b 73 20 | 62 79 20 72 65 70 65 61 |t works |by repea|
|000005a0| 74 65 64 6c 79 0d 01 ea | 23 f4 20 70 61 72 74 69 |tedly...|#. parti|
|000005b0| 74 69 6f 6e 69 6e 67 20 | 74 68 65 20 61 72 72 61 |tioning |the arra|
|000005c0| 79 20 61 72 6f 75 6e 64 | 0d 01 f4 24 f4 20 61 20 |y around|...$. a |
|000005d0| 73 65 6c 65 63 74 65 64 | 20 65 6c 65 6d 65 6e 74 |selected| element|
|000005e0| 20 73 6f 20 74 68 61 74 | 20 61 6c 6c 0d 01 fe 21 | so that| all...!|
|000005f0| f4 20 65 6c 65 6d 65 6e | 74 73 20 6f 6e 20 6f 6e |. elemen|ts on on|
|00000600| 65 20 73 69 64 65 20 6f | 66 20 74 68 65 0d 02 08 |e side o|f the...|
|00000610| 21 f4 20 70 61 72 74 69 | 74 69 6f 6e 20 61 72 65 |!. parti|tion are|
|00000620| 20 6c 65 73 73 20 74 68 | 61 6e 20 61 6c 6c 0d 02 | less th|an all..|
|00000630| 12 25 f4 20 74 68 65 20 | 65 6c 65 6d 65 6e 74 73 |.%. the |elements|
|00000640| 20 6f 6e 20 74 68 65 20 | 6f 74 68 65 72 20 73 69 | on the |other si|
|00000650| 64 65 2e 0d 02 1c 25 f4 | 20 49 74 20 69 73 20 74 |de....%.| It is t|
|00000660| 68 65 20 66 61 73 74 65 | 73 74 20 6b 6e 6f 77 6e |he faste|st known|
|00000670| 20 67 65 6e 65 72 61 6c | 0d 02 26 24 f4 20 70 75 | general|..&$. pu|
|00000680| 72 70 6f 73 65 20 73 6f | 72 74 20 2d 20 74 79 70 |rpose so|rt - typ|
|00000690| 69 63 61 6c 6c 79 20 74 | 77 69 63 65 0d 02 30 23 |ically t|wice..0#|
|000006a0| f4 20 61 73 20 66 61 73 | 74 20 61 73 20 48 65 61 |. as fas|t as Hea|
|000006b0| 70 73 6f 72 74 20 2d 20 | 62 75 74 20 68 61 73 0d |psort - |but has.|
|000006c0| 02 3a 21 f4 20 61 20 76 | 65 72 79 20 70 6f 6f 72 |.:!. a v|ery poor|
|000006d0| 20 28 61 6e 64 20 76 65 | 72 79 20 72 61 72 65 29 | (and ve|ry rare)|
|000006e0| 0d 02 44 1e f4 20 6f 72 | 64 65 72 20 4f 28 4e 2a |..D.. or|der O(N*|
|000006f0| 4e 29 20 77 6f 72 73 74 | 20 63 61 73 65 2e 0d 02 |N) worst| case...|
|00000700| 4e 24 f4 20 54 68 69 73 | 20 76 65 72 73 69 6f 6e |N$. This| version|
|00000710| 20 69 73 20 6e 6f 74 20 | 6f 70 74 69 6d 69 73 65 | is not |optimise|
|00000720| 64 2e 0d 02 58 24 f4 20 | 41 20 6c 69 62 72 61 72 |d...X$. |A librar|
|00000730| 79 20 72 6f 75 74 69 6e | 65 20 77 6f 75 6c 64 20 |y routin|e would |
|00000740| 73 65 6c 65 63 74 0d 02 | 62 23 f4 20 74 68 65 20 |select..|b#. the |
|00000750| 70 61 72 74 69 74 69 6f | 6e 69 6e 67 20 65 6c 65 |partitio|ning ele|
|00000760| 6d 65 6e 74 20 6d 6f 72 | 65 0d 02 6c 24 f4 20 63 |ment mor|e..l$. c|
|00000770| 61 72 65 66 75 6c 6c 79 | 20 61 6e 64 20 77 6f 75 |arefully| and wou|
|00000780| 6c 64 20 73 6f 72 74 20 | 73 68 6f 72 74 0d 02 76 |ld sort |short..v|
|00000790| 24 f4 20 73 75 62 66 69 | 6c 65 73 20 62 79 20 61 |$. subfi|les by a|
|000007a0| 20 73 65 70 61 72 61 74 | 65 20 6d 65 74 68 6f 64 | separat|e method|
|000007b0| 2e 0d 02 80 05 20 0d 02 | 8a 24 f4 20 53 65 6c 65 |..... ..|.$. Sele|
|000007c0| 63 74 69 6f 6e 20 73 6f | 72 74 20 69 6e 69 74 69 |ction so|rt initi|
|000007d0| 61 6c 6c 79 20 73 63 61 | 6e 73 0d 02 94 1f f4 20 |ally sca|ns..... |
|000007e0| 74 68 72 6f 75 67 68 20 | 74 68 65 20 61 72 72 61 |through |the arra|
|000007f0| 79 20 66 6f 72 20 74 68 | 65 0d 02 9e 24 f4 20 73 |y for th|e...$. s|
|00000800| 6d 61 6c 6c 65 73 74 20 | 65 6c 65 6d 65 6e 74 20 |mallest |element |
|00000810| 61 6e 64 20 65 78 63 68 | 61 6e 67 65 73 0d 02 a8 |and exch|anges...|
|00000820| 23 f4 20 69 74 20 77 69 | 74 68 20 74 68 65 20 66 |#. it wi|th the f|
|00000830| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 2e 20 49 74 |irst ele|ment. It|
|00000840| 0d 02 b2 24 f4 20 74 68 | 65 6e 20 73 63 61 6e 73 |...$. th|en scans|
|00000850| 20 74 68 65 20 72 65 6d | 61 69 6e 69 6e 67 20 61 | the rem|aining a|
|00000860| 72 72 61 79 0d 02 bc 24 | f4 20 65 6c 65 6d 65 6e |rray...$|. elemen|
|00000870| 74 73 20 66 6f 72 20 74 | 68 65 20 6e 65 78 74 20 |ts for t|he next |
|00000880| 73 6d 61 6c 6c 65 73 74 | 0d 02 c6 1f f4 20 61 6e |smallest|..... an|
|00000890| 64 20 65 78 63 68 61 6e | 67 65 73 20 69 74 20 77 |d exchan|ges it w|
|000008a0| 69 74 68 20 74 68 65 0d | 02 d0 25 f4 20 73 65 63 |ith the.|..%. sec|
|000008b0| 6f 6e 64 20 65 6c 65 6d | 65 6e 74 2e 20 54 68 69 |ond elem|ent. Thi|
|000008c0| 73 20 70 72 6f 63 65 73 | 73 20 6f 66 0d 02 da 23 |s proces|s of...#|
|000008d0| f4 20 6f 66 20 73 63 61 | 6e 6e 69 6e 67 20 61 6e |. of sca|nning an|
|000008e0| 64 20 65 78 63 68 61 6e | 67 69 6e 67 20 69 73 0d |d exchan|ging is.|
|000008f0| 02 e4 22 f4 20 72 65 70 | 65 61 74 65 64 20 66 6f |..". rep|eated fo|
|00000900| 72 20 61 6c 6c 20 4e 20 | 65 6c 65 6d 65 6e 74 73 |r all N |elements|
|00000910| 2e 0d 02 ee 23 f4 20 54 | 68 69 73 20 69 73 20 61 |....#. T|his is a|
|00000920| 6e 20 69 6e 65 66 66 69 | 63 69 65 6e 74 20 4f 28 |n ineffi|cient O(|
|00000930| 4e 2a 4e 29 0d 02 f8 22 | f4 20 73 6f 72 74 2c 20 |N*N)..."|. sort, |
|00000940| 62 75 74 20 73 69 6e 63 | 65 20 65 61 63 68 20 65 |but sinc|e each e|
|00000950| 6c 65 6d 65 6e 74 0d 03 | 02 20 f4 20 69 73 20 6f |lement..|. . is o|
|00000960| 6e 6c 79 20 6d 6f 76 65 | 64 20 6f 6e 63 65 2c 20 |nly move|d once, |
|00000970| 69 74 20 68 61 73 0d 03 | 0c 23 f4 20 73 6f 6d 65 |it has..|.#. some|
|00000980| 20 75 73 65 73 20 66 6f | 72 20 66 69 6c 65 73 20 | uses fo|r files |
|00000990| 77 69 74 68 20 76 65 72 | 79 0d 03 16 23 f4 20 6c |with ver|y...#. l|
|000009a0| 61 72 67 65 20 72 65 63 | 6f 72 64 73 20 61 6e 64 |arge rec|ords and|
|000009b0| 20 73 6d 61 6c 6c 20 6b | 65 79 73 2e 0d 03 20 05 | small k|eys... .|
|000009c0| 20 0d 03 2a 45 ee 20 85 | 3a ee 20 85 20 87 3a eb | ..*E. .|:. . .:.|
|000009d0| 30 3a fb 30 3a fb 31 32 | 39 3a db 3a ef 32 33 2c |0:.0:.12|9:.:.23,|
|000009e0| 31 2c 31 7c 3a e7 20 9f | 3c 3e 31 37 20 8c 3a f6 |1,1|:. .|<>17 .:.|
|000009f0| 3a f1 20 22 20 61 74 20 | 6c 69 6e 65 20 22 3b 9e |:. " at |line ";.|
|00000a00| 3a e0 20 8b 20 e0 0d 03 | 34 04 0d 03 3e 38 4e 25 |:. . ...|4...>8N%|
|00000a10| 3d 34 30 30 20 3a f4 20 | 4e 75 6d 62 65 72 20 6f |=400 :. |Number o|
|00000a20| 66 20 61 72 72 61 79 20 | 65 6c 65 6d 65 6e 74 73 |f array |elements|
|00000a30| 20 66 6f 72 20 64 65 6d | 6f 6e 73 74 72 61 74 69 | for dem|onstrati|
|00000a40| 6f 6e 0d 03 48 2e 53 74 | 3d 31 36 20 20 3a f4 20 |on..H.St|=16  :. |
|00000a50| 53 74 61 63 6b 20 61 72 | 72 61 79 20 6c 65 6e 67 |Stack ar|ray leng|
|00000a60| 74 68 20 66 6f 72 20 51 | 75 69 63 6b 73 6f 72 74 |th for Q|uicksort|
|00000a70| 0d 03 52 0e de 20 4b 65 | 79 25 28 4e 25 29 0d 03 |..R.. Ke|y%(N%)..|
|00000a80| 5c 13 de 20 4c 25 28 53 | 74 29 2c 52 25 28 53 74 |\.. L%(S|t),R%(St|
|00000a90| 29 0d 03 66 05 20 0d 03 | 70 07 eb 20 37 0d 03 7a |)..f. ..|p.. 7..z|
|00000aa0| 0c f2 6d 6f 6e 69 74 6f | 72 0d 03 84 05 f5 0d 03 |..monito|r.......|
|00000ab0| 8e 07 eb 20 37 0d 03 98 | 0b f2 63 68 6f 6f 73 65 |... 7...|..choose|
|00000ac0| 0d 03 a2 0f e7 20 ac 28 | 65 78 69 74 29 20 8c 0d |..... .(|exit) ..|
|00000ad0| 03 ac 12 eb 20 31 38 2a | 28 6d 74 79 70 65 2d 31 |.... 18*|(mtype-1|
|00000ae0| 29 0d 03 b6 0d f2 69 6e | 69 74 28 4e 25 29 0d 03 |).....in|it(N%)..|
|00000af0| c0 0b c8 8e 20 47 24 20 | ca 0d 03 ca 1d c9 20 22 |.... G$ |...... "|
|00000b00| 48 65 61 70 73 6f 72 74 | 22 20 20 3a 20 f2 68 65 |Heapsort|"  : .he|
|00000b10| 61 70 73 6f 72 74 0d 03 | d4 1e c9 20 22 53 68 65 |apsort..|... "She|
|00000b20| 6c 6c 73 6f 72 74 22 20 | 3a 20 f2 73 68 65 6c 6c |llsort" |: .shell|
|00000b30| 73 6f 72 74 0d 03 de 1e | c9 20 22 51 75 69 63 6b |sort....|. "Quick|
|00000b40| 73 6f 72 74 22 20 3a 20 | f2 71 75 69 63 6b 73 6f |sort" : |.quickso|
|00000b50| 72 74 0d 03 e8 1f c9 20 | 22 53 65 6c 65 63 74 73 |rt..... |"Selects|
|00000b60| 6f 72 74 22 3a 20 f2 73 | 65 6c 65 63 74 73 6f 72 |ort": .s|electsor|
|00000b70| 74 0d 03 f2 05 cb 0d 03 | fc 1b f2 6f 75 74 70 75 |t.......|...outpu|
|00000b80| 74 28 22 53 6f 72 74 65 | 64 20 41 72 72 61 79 22 |t("Sorte|d Array"|
|00000b90| 29 0d 04 06 05 cd 0d 04 | 10 0a fd 20 65 78 69 74 |).......|... exit|
|00000ba0| 0d 04 1a 11 eb 20 30 3a | fb 30 3a fb 31 32 39 3a |..... 0:|.0:.129:|
|00000bb0| db 0d 04 24 0c ef 32 33 | 2c 31 2c 31 7c 0d 04 2e |...$..23|,1,1|...|
|00000bc0| 05 e0 0d 04 38 05 20 0d | 04 42 05 20 0d 04 4c 0e |....8. .|.B. ..L.|
|00000bd0| dd 20 f2 6d 6f 6e 69 74 | 6f 72 0d 04 56 3e e3 20 |. .monit|or..V>. |
|00000be0| 72 6f 77 3d 30 20 b8 20 | 31 3a f1 20 8a 35 2c 72 |row=0 . |1:. .5,r|
|00000bf0| 6f 77 29 3b bd 31 33 30 | 3b bd 31 34 31 3b 22 47 |ow);.130|;.141;"G|
|00000c00| 72 61 70 68 69 63 61 6c | 20 53 6f 72 74 69 6e 67 |raphical| Sorting|
|00000c10| 20 44 65 6d 6f 22 3a ed | 0d 04 60 26 f1 20 8a 37 | Demo":.|..`&. .7|
|00000c20| 2c 36 29 3b bd 31 32 39 | 3b 22 53 65 6c 65 63 74 |,6);.129|;"Select|
|00000c30| 20 4d 6f 6e 69 74 6f 72 | 20 54 79 70 65 22 0d 04 | Monitor| Type"..|
|00000c40| 6a 2c f1 20 8a 36 2c 31 | 31 29 3b bd 31 33 32 3b |j,. .6,1|1);.132;|
|00000c50| 22 31 20 3d 20 53 74 61 | 6e 64 61 72 64 20 52 47 |"1 = Sta|ndard RG|
|00000c60| 42 20 4d 6f 6e 69 74 6f | 72 22 0d 04 74 2a f1 20 |B Monito|r"..t*. |
|00000c70| 8a 36 2c 31 35 29 3b bd | 31 33 32 3b 22 32 20 3d |.6,15);.|132;"2 =|
|00000c80| 20 4d 75 6c 74 69 2d 53 | 79 6e 63 20 4d 6f 6e 69 | Multi-S|ync Moni|
|00000c90| 74 6f 72 22 0d 04 7e 05 | f1 0d 04 88 28 f5 3a 4d |tor"..~.|....(.:M|
|00000ca0| 74 79 70 65 24 3d be 3a | fd 20 4d 74 79 70 65 24 |type$=.:|. Mtype$|
|00000cb0| 3d 22 31 22 20 84 20 4d | 74 79 70 65 24 3d 22 32 |="1" . M|type$="2|
|00000cc0| 22 0d 04 92 13 6d 74 79 | 70 65 3d bb 28 4d 74 79 |"....mty|pe=.(Mty|
|00000cd0| 70 65 24 29 0d 04 9c 05 | e1 0d 04 a6 04 0d 04 b0 |pe$)....|........|
|00000ce0| 04 0d 04 ba 0f dd 20 f2 | 69 6e 69 74 28 4e 25 29 |...... .|init(N%)|
|00000cf0| 0d 04 c4 3e f4 20 73 65 | 74 20 75 70 20 72 61 6e |...>. se|t up ran|
|00000d00| 64 6f 6d 20 69 6e 69 74 | 69 61 6c 20 73 65 71 75 |dom init|ial sequ|
|00000d10| 65 6e 63 65 20 61 73 20 | 27 73 65 74 27 20 70 69 |ence as |'set' pi|
|00000d20| 78 65 6c 73 20 6f 6e 20 | 73 63 72 65 65 6e 0d 04 |xels on |screen..|
|00000d30| ce 0c ef 32 33 2c 31 2c | 30 7c 0d 04 d8 2b ec 20 |...23,1,|0|...+. |
|00000d40| 30 2c 30 3a df 20 38 30 | 34 2c 30 3a df 20 38 30 |0,0:. 80|4,0:. 80|
|00000d50| 34 2c 31 30 30 34 3a df | 20 30 2c 31 30 30 34 3a |4,1004:.| 0,1004:|
|00000d60| df 20 30 2c 30 0d 04 e2 | 1e f1 20 8a 35 32 2c 33 |. 0,0...|.. .52,3|
|00000d70| 32 2a 6d 74 79 70 65 2d | 31 29 3b 22 2d 2d 3e 20 |2*mtype-|1);"--> |
|00000d80| 4a 22 3b 0d 04 ec 1c f1 | 20 8a 35 32 2c 6d 74 79 |J";.....| .52,mty|
|00000d90| 70 65 29 3b 22 5e 20 4b | 65 79 28 4a 29 22 3b 0d |pe);"^ K|ey(J)";.|
|00000da0| 04 f6 2d e3 20 72 6f 77 | 3d 6d 74 79 70 65 2b 31 |..-. row|=mtype+1|
|00000db0| 20 b8 20 6d 74 79 70 65 | 2b 33 3a f1 20 8a 35 32 | . mtype|+3:. .52|
|00000dc0| 2c 72 6f 77 29 3b 22 7c | 22 3b 3a ed 0d 05 00 17 |,row);"||";:.....|
|00000dd0| f1 20 8a 35 34 2c 31 32 | 2a 6d 74 79 70 65 29 3b |. .54,12|*mtype);|
|00000de0| 47 24 3b 0d 05 0a 1f f1 | 20 8a 35 34 2c 31 33 2a |G$;.....| .54,13*|
|00000df0| 6d 74 79 70 65 29 3b c4 | a9 28 47 24 29 2c 22 3d |mtype);.|.(G$),"=|
|00000e00| 22 29 0d 05 14 0f e3 20 | 4a 25 3d 31 20 b8 20 4e |")..... |J%=1 . N|
|00000e10| 25 0d 05 1e 15 4b 65 79 | 25 28 4a 25 29 3d 34 2b |%....Key|%(J%)=4+|
|00000e20| b3 28 39 39 35 29 0d 05 | 28 14 c8 92 20 32 2a 4a |.(995)..|(... 2*J|
|00000e30| 25 2c 4b 65 79 25 28 4a | 25 29 0d 05 32 05 ed 0d |%,Key%(J|%)..2...|
|00000e40| 05 3c 1a f2 6f 75 74 70 | 75 74 28 22 53 74 61 72 |.<..outp|ut("Star|
|00000e50| 74 20 41 72 72 61 79 22 | 29 0d 05 46 36 4b 65 79 |t Array"|)..F6Key|
|00000e60| 25 28 30 29 3d 31 45 38 | 3a f4 20 73 65 6e 74 69 |%(0)=1E8|:. senti|
|00000e70| 6e 65 6c 20 6d 61 72 6b | 65 72 20 3e 20 61 6c 6c |nel mark|er > all|
|00000e80| 20 61 72 72 61 79 20 65 | 6c 65 6d 65 6e 74 73 0d | array e|lements.|
|00000e90| 05 50 05 e1 0d 05 5a 05 | 20 0d 05 64 05 20 0d 05 |.P....Z.| ..d. ..|
|00000ea0| 6e 0f dd 20 f2 68 65 61 | 70 73 6f 72 74 0d 05 78 |n.. .hea|psort..x|
|00000eb0| 05 20 0d 05 82 1d f4 20 | 50 68 61 73 65 20 31 20 |. ..... |Phase 1 |
|00000ec0| 2d 20 48 65 61 70 20 43 | 72 65 61 74 69 6f 6e 0d |- Heap C|reation.|
|00000ed0| 05 8c 1f f1 20 8a 35 34 | 2c 32 32 2a 6d 74 79 70 |.... .54|,22*mtyp|
|00000ee0| 65 29 3b 22 50 68 61 73 | 65 20 23 31 22 3b 0d 05 |e);"Phas|e #1";..|
|00000ef0| 96 05 20 0d 05 a0 0f e3 | 20 4a 25 3d 32 20 b8 20 |.. .....| J%=2 . |
|00000f00| 4e 25 0d 05 aa 0f 6b 25 | 3d 4b 65 79 25 28 4a 25 |N%....k%|=Key%(J%|
|00000f10| 29 0d 05 b4 13 e6 30 2c | 30 3a c8 92 20 32 2a 4a |).....0,|0:.. 2*J|
|00000f20| 25 2c 6b 25 0d 05 be 13 | 52 25 3d 4a 25 3a 4c 25 |%,k%....|R%=J%:L%|
|00000f30| 3d 52 25 20 81 20 32 0d | 05 c8 12 c8 95 20 6b 25 |=R% . 2.|..... k%|
|00000f40| 3e 4b 65 79 25 28 4c 25 | 29 0d 05 d2 15 4b 65 79 |>Key%(L%|)....Key|
|00000f50| 25 28 52 25 29 3d 4b 65 | 79 25 28 4c 25 29 0d 05 |%(R%)=Ke|y%(L%)..|
|00000f60| dc 2f e6 30 2c 30 3a c8 | 92 20 32 2a 4c 25 2c 4b |./.0,0:.|. 2*L%,K|
|00000f70| 65 79 25 28 4c 25 29 3a | e6 30 2c 31 3a c8 92 20 |ey%(L%):|.0,1:.. |
|00000f80| 32 2a 52 25 2c 4b 65 79 | 25 28 4c 25 29 0d 05 e6 |2*R%,Key|%(L%)...|
|00000f90| 13 52 25 3d 4c 25 3a 4c | 25 3d 4c 25 20 81 20 32 |.R%=L%:L|%=L% . 2|
|00000fa0| 0d 05 f0 05 ce 0d 05 fa | 0f 4b 65 79 25 28 52 25 |........|.Key%(R%|
|00000fb0| 29 3d 6b 25 0d 06 04 13 | e6 30 2c 31 3a c8 92 20 |)=k%....|.0,1:.. |
|00000fc0| 32 2a 52 25 2c 6b 25 0d | 06 0e 05 ed 0d 06 18 1c |2*R%,k%.|........|
|00000fd0| f2 6f 75 74 70 75 74 28 | 22 50 68 61 73 65 20 23 |.output(|"Phase #|
|00000fe0| 31 20 64 6f 6e 65 22 29 | 0d 06 22 05 20 0d 06 2c |1 done")|..". ..,|
|00000ff0| 19 f4 20 50 68 61 73 65 | 20 32 20 2d 20 53 65 6c |.. Phase| 2 - Sel|
|00001000| 65 63 74 69 6f 6e 0d 06 | 36 1f f1 20 8a 35 34 2c |ection..|6.. .54,|
|00001010| 32 32 2a 6d 74 79 70 65 | 29 3b 22 50 68 61 73 65 |22*mtype|);"Phase|
|00001020| 20 23 32 22 3b 0d 06 40 | 04 0d 06 4a 14 e3 20 4a | #2";..@|...J.. J|
|00001030| 25 3d 4e 25 20 b8 20 32 | 20 88 20 2d 31 0d 06 54 |%=N% . 2| . -1..T|
|00001040| 0b 51 25 3d 4a 25 2d 31 | 0d 06 5e 20 6b 25 3d 4b |.Q%=J%-1|..^ k%=K|
|00001050| 65 79 25 28 4a 25 29 3a | 4b 65 79 25 28 4a 25 29 |ey%(J%):|Key%(J%)|
|00001060| 3d 4b 65 79 25 28 31 29 | 0d 06 68 35 e6 30 2c 30 |=Key%(1)|..h5.0,0|
|00001070| 3a c8 92 20 32 2a 4a 25 | 2c 6b 25 3a c8 92 20 32 |:.. 2*J%|,k%:.. 2|
|00001080| 2c 4b 65 79 25 28 31 29 | 3a e6 30 2c 31 3a c8 92 |,Key%(1)|:.0,1:..|
|00001090| 20 32 2a 4a 25 2c 4b 65 | 79 25 28 31 29 0d 06 72 | 2*J%,Ke|y%(1)..r|
|000010a0| 0d 4c 25 3d 31 3a 52 25 | 3d 32 0d 06 7c 0d c8 95 |.L%=1:R%|=2..|...|
|000010b0| 20 52 25 3c 3d 51 25 0d | 06 86 29 e7 20 52 25 3c | R%<=Q%.|..). R%<|
|000010c0| 51 25 20 8c 20 e7 20 4b | 65 79 25 28 52 25 29 3c |Q% . . K|ey%(R%)<|
|000010d0| 4b 65 79 25 28 52 25 2b | 31 29 20 52 25 2b 3d 31 |Key%(R%+|1) R%+=1|
|000010e0| 0d 06 90 15 4b 65 79 25 | 28 4c 25 29 3d 4b 65 79 |....Key%|(L%)=Key|
|000010f0| 25 28 52 25 29 0d 06 9a | 2f e6 30 2c 30 3a c8 92 |%(R%)...|/.0,0:..|
|00001100| 20 32 2a 52 25 2c 4b 65 | 79 25 28 52 25 29 3a e6 | 2*R%,Ke|y%(R%):.|
|00001110| 30 2c 31 3a c8 92 20 32 | 2a 4c 25 2c 4b 65 79 25 |0,1:.. 2|*L%,Key%|
|00001120| 28 52 25 29 0d 06 a4 10 | 4c 25 3d 52 25 3a 52 25 |(R%)....|L%=R%:R%|
|00001130| 2b 3d 52 25 0d 06 ae 05 | ce 0d 06 b8 13 52 25 3d |+=R%....|.....R%=|
|00001140| 4c 25 3a 4c 25 3d 4c 25 | 20 81 20 32 0d 06 c2 12 |L%:L%=L%| . 2....|
|00001150| c8 95 20 6b 25 3e 4b 65 | 79 25 28 4c 25 29 0d 06 |.. k%>Ke|y%(L%)..|
|00001160| cc 15 4b 65 79 25 28 52 | 25 29 3d 4b 65 79 25 28 |..Key%(R|%)=Key%(|
|00001170| 4c 25 29 0d 06 d6 2f e6 | 30 2c 30 3a c8 92 20 32 |L%).../.|0,0:.. 2|
|00001180| 2a 4c 25 2c 4b 65 79 25 | 28 4c 25 29 3a e6 30 2c |*L%,Key%|(L%):.0,|
|00001190| 31 3a c8 92 20 32 2a 52 | 25 2c 4b 65 79 25 28 4c |1:.. 2*R|%,Key%(L|
|000011a0| 25 29 0d 06 e0 13 52 25 | 3d 4c 25 3a 4c 25 3d 4c |%)....R%|=L%:L%=L|
|000011b0| 25 20 81 20 32 0d 06 ea | 05 ce 0d 06 f4 0f 4b 65 |% . 2...|......Ke|
|000011c0| 79 25 28 52 25 29 3d 6b | 25 0d 06 fe 0e c8 92 20 |y%(R%)=k|%...... |
|000011d0| 32 2a 52 25 2c 6b 25 0d | 07 08 05 ed 0d 07 12 05 |2*R%,k%.|........|
|000011e0| 20 0d 07 1c 05 e1 0d 07 | 26 05 20 0d 07 30 05 20 | .......|&. ..0. |
|000011f0| 0d 07 3a 11 dd 20 f2 6f | 75 74 70 75 74 28 4d 24 |..:.. .o|utput(M$|
|00001200| 29 0d 07 44 17 f1 20 8a | 35 34 2c 32 32 2a 6d 74 |)..D.. .|54,22*mt|
|00001210| 79 70 65 29 3b 4d 24 3b | 0d 07 4e 25 f1 20 8a 35 |ype);M$;|..N%. .5|
|00001220| 34 2c 32 35 2a 6d 74 79 | 70 65 29 3b 22 2e 2e 2e |4,25*mty|pe);"...|
|00001230| 70 72 65 73 73 20 61 20 | 6b 65 79 22 3b 0d 07 58 |press a |key";..X|
|00001240| 07 ef 20 37 0d 07 62 0b | 2a 46 58 31 35 2c 31 0d |.. 7..b.|*FX15,1.|
|00001250| 07 6c 07 47 3d a5 0d 07 | 76 1c f1 8a 35 34 2c 32 |.l.G=...|v...54,2|
|00001260| 32 2a 6d 74 79 70 65 29 | 3b c4 31 34 2c 22 20 22 |2*mtype)|;.14," "|
|00001270| 29 3b 0d 07 80 1c f1 8a | 35 34 2c 32 35 2a 6d 74 |);......|54,25*mt|
|00001280| 79 70 65 29 3b c4 31 34 | 2c 22 20 22 29 3b 0d 07 |ype);.14|," ");..|
|00001290| 8a 05 e1 0d 07 94 05 20 | 0d 07 9e 05 20 0d 07 a8 |....... |.... ...|
|000012a0| 10 dd 20 f2 73 68 65 6c | 6c 73 6f 72 74 0d 07 b2 |.. .shel|lsort...|
|000012b0| 05 20 0d 07 bc 09 44 25 | 3d 4e 25 0d 07 c6 04 0d |. ....D%|=N%.....|
|000012c0| 07 d0 0b c8 95 20 44 25 | 3e 31 0d 07 da 1c f4 20 |..... D%|>1..... |
|000012d0| 44 65 66 69 6e 65 20 73 | 6f 72 74 20 69 6e 63 72 |Define s|ort incr|
|000012e0| 65 6d 65 6e 74 73 0d 07 | e4 0c e7 20 44 25 3c 35 |ements..|... D%<5|
|000012f0| 20 8c 0d 07 ee 08 44 25 | 3d 31 0d 07 f8 05 cc 0d | .....D%|=1......|
|00001300| 08 02 12 44 25 3d 28 35 | 2a 44 25 2d 31 29 2f 31 |...D%=(5|*D%-1)/1|
|00001310| 31 0d 08 0c 05 cd 0d 08 | 16 26 f1 20 8a 35 34 2c |1.......|.&. .54,|
|00001320| 32 32 2a 6d 74 79 70 65 | 29 3b 22 49 6e 63 72 20 |22*mtype|);"Incr |
|00001330| 3d 20 22 3b 44 25 3b 22 | 20 20 22 3b 0d 08 20 12 |= ";D%;"|  ";.. .|
|00001340| e3 20 4a 25 3d 44 25 2b | 31 20 b8 20 4e 25 0d 08 |. J%=D%+|1 . N%..|
|00001350| 2a 1e 55 25 3d 4a 25 3a | 4c 25 3d 4a 25 2d 44 25 |*.U%=J%:|L%=J%-D%|
|00001360| 3a 6b 25 3d 4b 65 79 25 | 28 4a 25 29 0d 08 34 14 |:k%=Key%|(J%)..4.|
|00001370| e6 20 30 2c 30 3a c8 92 | 20 32 2a 4a 25 2c 6b 25 |. 0,0:..| 2*J%,k%|
|00001380| 0d 08 3e 05 f5 0d 08 48 | 13 e7 20 6b 25 3c 4b 65 |..>....H|.. k%<Ke|
|00001390| 79 25 28 4c 25 29 20 8c | 0d 08 52 15 4b 65 79 25 |y%(L%) .|..R.Key%|
|000013a0| 28 55 25 29 3d 4b 65 79 | 25 28 4c 25 29 0d 08 5c |(U%)=Key|%(L%)..\|
|000013b0| 30 e6 20 30 2c 30 3a c8 | 92 20 32 2a 4c 25 2c 4b |0. 0,0:.|. 2*L%,K|
|000013c0| 65 79 25 28 4c 25 29 3a | e6 30 2c 31 3a c8 92 20 |ey%(L%):|.0,1:.. |
|000013d0| 32 2a 55 25 2c 4b 65 79 | 25 28 4c 25 29 0d 08 66 |2*U%,Key|%(L%)..f|
|000013e0| 10 55 25 3d 4c 25 3a 4c | 25 2d 3d 44 25 0d 08 70 |.U%=L%:L|%-=D%..p|
|000013f0| 05 cc 0d 08 7a 08 4c 25 | 3d 30 0d 08 84 05 cd 0d |....z.L%|=0......|
|00001400| 08 8e 0b fd 20 4c 25 3c | 3d 30 0d 08 98 0f 4b 65 |.... L%<|=0....Ke|
|00001410| 79 25 28 55 25 29 3d 6b | 25 0d 08 a2 13 e6 30 2c |y%(U%)=k|%.....0,|
|00001420| 31 3a c8 92 20 32 2a 55 | 25 2c 6b 25 0d 08 ac 05 |1:.. 2*U|%,k%....|
|00001430| ed 0d 08 b6 05 ce 0d 08 | c0 05 20 0d 08 ca 05 e1 |........|.. .....|
|00001440| 0d 08 d4 05 20 0d 08 de | 05 20 0d 08 e8 0d dd 20 |.... ...|. ..... |
|00001450| f2 63 68 6f 6f 73 65 0d | 08 f2 05 db 0d 08 fc 25 |.choose.|.......%|
|00001460| 4d 24 3d 22 50 6c 65 61 | 73 65 20 63 68 6f 6f 73 |M$="Plea|se choos|
|00001470| 65 20 73 6f 72 74 20 61 | 6c 67 6f 72 69 74 68 6d |e sort a|lgorithm|
|00001480| 22 0d 09 06 3d e3 20 72 | 6f 77 3d 30 20 b8 20 31 |"...=. r|ow=0 . 1|
|00001490| 3a f1 20 8a 36 2c 72 6f | 77 29 bd 31 33 30 3b bd |:. .6,ro|w).130;.|
|000014a0| 31 34 31 3b 22 47 72 61 | 70 68 69 63 61 6c 20 53 |141;"Gra|phical S|
|000014b0| 6f 72 74 69 6e 67 20 44 | 65 6d 6f 22 3a ed 0d 09 |orting D|emo":...|
|000014c0| 10 1e f1 8a 31 39 2d a9 | 28 4d 24 29 2f 32 2c 34 |....19-.|(M$)/2,4|
|000014d0| 29 3b bd 28 31 33 32 29 | 3b 4d 24 3b 0d 09 1a 28 |);.(132)|;M$;...(|
|000014e0| f1 8a 38 2c 37 29 3b bd | 31 33 30 3b 22 48 20 3d |..8,7);.|130;"H =|
|000014f0| 20 48 65 61 70 73 6f 72 | 74 20 61 6c 67 6f 72 69 | Heapsor|t algori|
|00001500| 74 68 6d 22 0d 09 24 2a | f1 8a 38 2c 31 31 29 3b |thm"..$*|..8,11);|
|00001510| bd 31 33 30 3b 22 53 20 | 3d 20 53 68 65 6c 6c 73 |.130;"S |= Shells|
|00001520| 6f 72 74 20 61 6c 67 6f | 72 69 74 68 6d 22 0d 09 |ort algo|rithm"..|
|00001530| 2e 2a f1 8a 38 2c 31 35 | 29 3b bd 31 33 30 3b 22 |.*..8,15|);.130;"|
|00001540| 51 20 3d 20 51 75 69 63 | 6b 73 6f 72 74 20 61 6c |Q = Quic|ksort al|
|00001550| 67 6f 72 69 74 68 6d 22 | 0d 09 38 2a f1 8a 38 2c |gorithm"|..8*..8,|
|00001560| 31 39 29 3b bd 31 33 30 | 3b 22 43 20 3d 20 53 65 |19);.130|;"C = Se|
|00001570| 6c 65 63 74 69 6f 6e 20 | 61 6c 67 6f 72 69 74 68 |lection |algorith|
|00001580| 6d 22 0d 09 42 24 f1 8a | 38 2c 32 33 29 3b bd 31 |m"..B$..|8,23);.1|
|00001590| 32 39 3b 22 45 20 3d 20 | 45 78 69 74 20 50 72 6f |29;"E = |Exit Pro|
|000015a0| 67 72 61 6d 22 3b 0d 09 | 4c 05 f5 0d 09 56 0b 2a |gram";..|L....V.*|
|000015b0| 46 58 31 35 2c 31 0d 09 | 60 08 47 24 3d be 0d 09 |FX15,1..|`.G$=...|
|000015c0| 6a 17 fd 20 a7 22 48 68 | 53 73 51 71 43 63 45 65 |j.. ."Hh|SsQqCcEe|
|000015d0| 22 2c 47 24 29 0d 09 74 | 0a 65 78 69 74 3d a3 0d |",G$)..t|.exit=..|
|000015e0| 09 7e 0b c8 8e 20 47 24 | 20 ca 0d 09 88 1d c9 20 |.~... G$| ...... |
|000015f0| 22 48 22 2c 22 68 22 20 | 3a 20 47 24 3d 22 48 65 |"H","h" |: G$="He|
|00001600| 61 70 73 6f 72 74 22 0d | 09 92 1e c9 20 22 53 22 |apsort".|.... "S"|
|00001610| 2c 22 73 22 20 3a 20 47 | 24 3d 22 53 68 65 6c 6c |,"s" : G|$="Shell|
|00001620| 73 6f 72 74 22 0d 09 9c | 1e c9 20 22 51 22 2c 22 |sort"...|.. "Q","|
|00001630| 71 22 20 3a 20 47 24 3d | 22 51 75 69 63 6b 73 6f |q" : G$=|"Quickso|
|00001640| 72 74 22 0d 09 a6 1f c9 | 20 22 43 22 2c 22 63 22 |rt".....| "C","c"|
|00001650| 20 3a 20 47 24 3d 22 53 | 65 6c 65 63 74 73 6f 72 | : G$="S|electsor|
|00001660| 74 22 0d 09 b0 16 c9 20 | 22 45 22 2c 22 65 22 20 |t"..... |"E","e" |
|00001670| 3a 20 65 78 69 74 3d b9 | 0d 09 ba 05 cb 0d 09 c4 |: exit=.|........|
|00001680| 05 e1 0d 09 ce 05 20 0d | 09 d8 05 20 0d 09 e2 10 |...... .|... ....|
|00001690| dd 20 f2 71 75 69 63 6b | 73 6f 72 74 0d 09 ec 04 |. .quick|sort....|
|000016a0| 0d 09 f6 19 53 25 3d 31 | 3a 4c 25 28 31 29 3d 31 |....S%=1|:L%(1)=1|
|000016b0| 3a 52 25 28 31 29 3d 4e | 25 0d 0a 00 05 20 0d 0a |:R%(1)=N|%.... ..|
|000016c0| 0a 05 f5 0d 0a 14 1d 4c | 25 3d 4c 25 28 53 25 29 |.......L|%=L%(S%)|
|000016d0| 3a 52 25 3d 52 25 28 53 | 25 29 3a 53 25 2d 3d 31 |:R%=R%(S|%):S%-=1|
|000016e0| 0d 0a 1e 05 f5 0d 0a 28 | 22 49 25 3d 4c 25 3a 4a |.......(|"I%=L%:J|
|000016f0| 25 3d 52 25 3a 58 25 3d | 4b 65 79 25 28 28 4c 25 |%=R%:X%=|Key%((L%|
|00001700| 2b 52 25 29 81 32 29 0d | 0a 32 05 f5 0d 0a 3c 1a |+R%).2).|.2....<.|
|00001710| c8 95 20 4b 65 79 25 28 | 49 25 29 3c 58 25 3a 49 |.. Key%(|I%)<X%:I|
|00001720| 25 2b 3d 31 3a ce 0d 0a | 46 1a c8 95 20 4b 65 79 |%+=1:...|F... Key|
|00001730| 25 28 4a 25 29 3e 58 25 | 3a 4a 25 2d 3d 31 3a ce |%(J%)>X%|:J%-=1:.|
|00001740| 0d 0a 50 0e e7 20 49 25 | 3c 3d 4a 25 20 8c 0d 0a |..P.. I%|<=J% ...|
|00001750| 5a 0f 54 25 3d 4b 65 79 | 25 28 49 25 29 0d 0a 64 |Z.T%=Key|%(I%)..d|
|00001760| 15 4b 65 79 25 28 49 25 | 29 3d 4b 65 79 25 28 4a |.Key%(I%|)=Key%(J|
|00001770| 25 29 0d 0a 6e 0f 4b 65 | 79 25 28 4a 25 29 3d 54 |%)..n.Ke|y%(J%)=T|
|00001780| 25 0d 0a 78 24 e6 30 2c | 30 3a c8 92 20 32 2a 49 |%..x$.0,|0:.. 2*I|
|00001790| 25 2c 54 25 3a c8 92 20 | 32 2a 4a 25 2c 4b 65 79 |%,T%:.. |2*J%,Key|
|000017a0| 25 28 49 25 29 0d 0a 82 | 24 e6 30 2c 31 3a c8 92 |%(I%)...|$.0,1:..|
|000017b0| 20 32 2a 49 25 2c 4b 65 | 79 25 28 49 25 29 3a c8 | 2*I%,Ke|y%(I%):.|
|000017c0| 92 20 32 2a 4a 25 2c 54 | 25 0d 0a 8c 09 49 25 2b |. 2*J%,T|%....I%+|
|000017d0| 3d 31 0d 0a 96 09 4a 25 | 2d 3d 31 0d 0a a0 05 cd |=1....J%|-=1.....|
|000017e0| 0d 0a aa 0b fd 20 49 25 | 3e 4a 25 0d 0a b4 27 e7 |..... I%|>J%...'.|
|000017f0| 20 49 25 3c 52 25 20 8c | 20 53 25 2b 3d 31 3a 4c | I%<R% .| S%+=1:L|
|00001800| 25 28 53 25 29 3d 49 25 | 3a 52 25 28 53 25 29 3d |%(S%)=I%|:R%(S%)=|
|00001810| 52 25 0d 0a be 09 52 25 | 3d 4a 25 0d 0a c8 0c fd |R%....R%|=J%.....|
|00001820| 20 4c 25 3e 3d 52 25 0d | 0a d2 0a fd 20 53 25 3d | L%>=R%.|.... S%=|
|00001830| 30 0d 0a dc 05 e1 0d 0a | e6 05 20 0d 0a f0 05 20 |0.......|.. .... |
|00001840| 0d 0a fa 11 dd 20 f2 73 | 65 6c 65 63 74 73 6f 72 |..... .s|electsor|
|00001850| 74 0d 0b 04 11 e3 20 49 | 25 3d 31 20 b8 20 4e 25 |t..... I|%=1 . N%|
|00001860| 2d 31 0d 0b 0e 09 4d 25 | 3d 49 25 0d 0b 18 12 e3 |-1....M%|=I%.....|
|00001870| 20 4a 25 3d 49 25 2b 31 | 20 b8 20 4e 25 0d 0b 22 | J%=I%+1| . N%.."|
|00001880| 1f e7 20 4b 65 79 25 28 | 4a 25 29 3c 4b 65 79 25 |.. Key%(|J%)<Key%|
|00001890| 28 4d 25 29 20 8c 20 4d | 25 3d 4a 25 0d 0b 2c 05 |(M%) . M|%=J%..,.|
|000018a0| ed 0d 0b 36 21 54 25 3d | 4b 65 79 25 28 4d 25 29 |...6!T%=|Key%(M%)|
|000018b0| 3a 4b 65 79 25 28 4d 25 | 29 3d 4b 65 79 25 28 49 |:Key%(M%|)=Key%(I|
|000018c0| 25 29 0d 0b 40 24 e6 30 | 2c 30 3a c8 92 20 32 2a |%)..@$.0|,0:.. 2*|
|000018d0| 4d 25 2c 54 25 3a c8 92 | 20 32 2a 49 25 2c 4b 65 |M%,T%:..| 2*I%,Ke|
|000018e0| 79 25 28 49 25 29 0d 0b | 4a 24 e6 30 2c 31 3a c8 |y%(I%)..|J$.0,1:.|
|000018f0| 92 20 32 2a 4d 25 2c 4b | 65 79 25 28 49 25 29 3a |. 2*M%,K|ey%(I%):|
|00001900| c8 92 20 32 2a 49 25 2c | 54 25 0d 0b 54 0f 4b 65 |.. 2*I%,|T%..T.Ke|
|00001910| 79 25 28 49 25 29 3d 54 | 25 0d 0b 5e 05 ed 0d 0b |y%(I%)=T|%..^....|
|00001920| 68 05 e1 0d ff          |                         |h....   |        |
+--------+-------------------------+-------------------------+--------+--------+